;Edit *.FPL files
;
(defun c:edfpl ( / )
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (check_for_doslib)
  (setq edfil (dos_getfilenav "Edit Flood Plain Grade File" (getvar"dwgprefix") "fpl" 4))
  (if (= 1 edfil)
    (setq edstr "UNNAMED.fpl")
    (setq edstr edfil)
  );IF
  (command "NOTEPAD" edstr)
);defun
